home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #2 / Monster Media No. 2 (Monster Media)(1994).ISO / pcboard / gamble11.zip / GAMBLE.PPS < prev    next >
Text File  |  1994-04-26  |  534b  |  25 lines
  1. STRING gametype
  2.  
  3. :BEGIN
  4. DISPFILE PPEPATH()+"gametype",0
  5. INPUTSTR "Which game would you like to play",gametype,@X0E,1,"1234QqGg",UPCASE
  6. IF (gametype = "1") THEN
  7.   CALL PPEPATH()+"luck1.ppe"
  8.   GOTO BEGIN
  9. ENDIF
  10. IF (gametype = "2") THEN
  11.   CALL PPEPATH()+"luck2.ppe"
  12.   GOTO BEGIN
  13. ENDIF
  14. IF (gametype = "3") THEN
  15.   CALL PPEPATH()+"bjack.ppe"
  16.   GOTO BEGIN
  17. ENDIF
  18. IF (gametype = "4") THEN
  19.   CALL PPEPATH()+"scrack.ppe"
  20.   GOTO BEGIN
  21. ENDIF
  22. IF (gametype = "Q") END
  23. IF (gametype = "G") GOODBYE
  24. IF (gametype = "") GOTO BEGIN
  25.